home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / C / Libraries / GUSI 1.4.1 / GUSI / MakeAliases < prev    next >
Encoding:
Text File  |  1994-02-25  |  1.2 KB  |  57 lines  |  [TEXT/MPS ]

  1. Perl -Sx "{0}" {"Parameters"}; Exit
  2.  
  3. #!/usr/local/bin/perl
  4. #######################################################################
  5. #    Project    :    GUSI            -    Grand Unified Socket Interface
  6. #    File        :    MakeAliases    -    Determine which standard routines to rename
  7. #    Author    :    Matthias Neeracher
  8. #    Language    :    Perl
  9. #
  10. #  $Log: MakeAliases,v $
  11. #  Revision 1.1  1994/02/25  01:21:59  neeri
  12. #  Initial revision
  13. #
  14. #    Revision 0.1  1992/11/21  00:00:00  neeri
  15. #    Consider externals
  16. #    
  17. #######################################################################
  18.  
  19. open(ALIAS, "Aliases")         || die "Can't open file \"Aliases\"";
  20. open(EXT,    "GUSI.ext")        || die "Can't open file \"GUSI.ext\"";
  21. open(DF,     ">Alias.df")    || die "Can't open file \"Alias.df\"";
  22. open(DF1,     ">Alias1.df")    || die "Can't open file \"Alias1.df\"";
  23. open(RN,        ">Alias.rn")    || die "Can't open file \"Alias.rn\"";
  24.  
  25. while (<ALIAS>)    {
  26.     if (/(\S+)\s+(\S+)/) {
  27.         $Alias{$1} = $2;
  28.     
  29.         print RN  "   -rn $1=$2\n" unless ($1 eq $2);
  30.     }
  31. }
  32.  
  33. close ALIAS;
  34.  
  35. while (<EXT>)    {
  36.     if (/(\S+)/) {
  37.         $Ext{$1} = 1;
  38.     }
  39. }
  40.  
  41. close EXT;
  42.  
  43. while (<>)    {
  44.     if (/^(\S+).*\$/ || /EP=(\S+)/) {
  45.         unless ($Alias{$1}) {
  46.             if ($Ext{$1}) {
  47.                 print DF1 "$1\n";
  48.             } else {
  49.                 print DF "$1\n";
  50.             }
  51.         }
  52.     }
  53. }
  54.  
  55. close DF;
  56. close RN;
  57.